home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2007 December / PCWKCD1207B.iso / Windows marzen / Macro ToolsWorks 6.31 / tworks.exe / Samples / Insert current date to file name (uses procedures).mcr < prev    next >
Encoding:
Text File  |  2003-08-14  |  1.0 KB  |  30 lines
  1. <#> 
  2. <#> This sample insert current date to name of the selected file
  3. <#> 
  4. <#>
  5. <cmds>
  6.  
  7. <proc_def_begin>(GetDateString, "&parDateString&")
  8.    <varset>("parDateString=-%_vCurrDate_Year%-%_vCurrDate_MM%-%_vCurrDate_DD%","")
  9. <proc_def_end>
  10.  
  11. <proc_def_begin>(InsertDateToFileName, "&parFileName&")
  12.    <proc_call>(GetDateString,"lpvDateString")
  13.    <var_oper>(vbLnt,"%parFileName%",STR_LENGTH,"","", "0")
  14.    <begloop>(vbLnt)
  15.       <var_oper>(vbInx,"%vbLnt%-%_vLoopCounter%",CALC_EXPRESSION,"0","", "0")
  16.       <var_oper>(vbChar,"%parFileName%",STR_GET_CHAR,"vbInx","", "0")
  17.       <if_str>("vbChar==.")
  18.          <var_oper>(parFileName,"%parFileName%",STR_INSERT,"vbInx","%lpvDateString%", "0")
  19.          <goto>("lbl_b_End")
  20.       <endif>
  21.    <endloop>
  22.    <var_oper>(parFileName,"%parFileName%",STR_APPEND,"%lpvDateString%","", "0")
  23.    <label>("lbl_b_End")
  24. <proc_def_end>
  25.  
  26. <var_oper>(vFile,"",SELECT_FILE," ","", "0")
  27. <if_str>("_vCanceled == 1") <exitmacro> <endif>
  28. <proc_call>(InsertDateToFileName,"vFile")
  29. <msg>(-100,-100,"vFile","Message",1)
  30.